home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / QS1.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  32 lines
  1. 0  TEXT : HOME 
  2. 9  PRINT : PRINT : PRINT 
  3. 10  PRINT "If the force of the Earth's gravity     were to stop, what would happen to the  moon?"
  4. 12  PRINT : PRINT 
  5. 14  PRINT "     a)  It would explode."
  6. 15  PRINT 
  7. 16  PRINT "     b)  It would fall to Earth."
  8. 17  PRINT 
  9. 18  PRINT "     c)  It would sail off into space."
  10. 19  PRINT 
  11. 20  PRINT "     d)  It would spin faster."
  12. 21  PRINT : PRINT 
  13. 30  GET KY$
  14. 39  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  15. 40  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 100
  16. 50  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 110
  17. 60  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 120
  18. 70  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 130
  19. 80  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOSUB 140
  20. 100  PRINT "You got it!!  GRAVITY was the outside   force which kept the moon from          continuing along a straight path.  On   to the next question."
  21. 102  GOSUB 300
  22. 104  PRINT  CHR$(4);"run qs2"
  23. 110  PRINT "Be serious, it would not explode.  Try  again."
  24. 112  GOSUB 200: GOTO 0: RETURN 
  25. 120  PRINT "Luckily for us, it would not fall to    Earth.  Try again."
  26. 122  GOSUB 200: GOTO 0: RETURN 
  27. 130  PRINT "No, it would not spin faster.  Try      again."
  28. 132  GOSUB 200: GOTO 0: RETURN 
  29. 140  PRINT "Please enter only A, B, C, or D!!"
  30. 142  GOSUB 200: GOTO 0: RETURN 
  31. 200  FOR I = 0 TO 2500: NEXT : RETURN 
  32. 300  FOR I = 0 TO 4500: NEXT : RETURN